home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / zendisk1.zip / LST10-2.ASM < prev    next >
Assembly Source File  |  1990-02-15  |  410b  |  22 lines
  1. ;
  2. ; *** Listing 10-2 ***
  3. ;
  4. ; Loads each byte in a 1000-byte array into AL, using
  5. ; LODSB.
  6. ;
  7.     jmp    Skip
  8. ;
  9. ARRAY_LENGTH    equ    1000
  10. ByteArray    db    ARRAY_LENGTH dup (0)
  11. ;
  12. Skip:
  13.     call    ZTimerOn
  14.     mov    si,offset ByteArray
  15.             ;point to the start of the array
  16.     cld        ;make LODSB increment SI
  17.     rept    ARRAY_LENGTH
  18.     lodsb        ;get this array byte & point to the
  19.             ; next byte in the array
  20.     endm
  21.     call    ZTimerOff
  22.